home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 5-Fonts & Software / Applications / FrameMaker / Samples / PostScript / BigFill.ps next >
Text File  |  1990-06-02  |  1KB  |  38 lines
  1. % BigFill.ps
  2. % fills in entire FrameMaker textrect with a given string, solid fill
  3. %
  4. % args in:
  5. %    1 = string to print in parenthesis    ie. (MYSTRING)
  6. %    2 = font desired: /font      ie.  /Times-Roman
  7. %    3 = mode code where /W = fill width, /H = fill height, /B = fill both
  8. %    4 = rotate value from -180 to +180
  9. %         where pos. = counterclockwise, neg = clockwise
  10. %    5 = starting corner: /LL /LR /UR /UL  where LL = lower left, etc.
  11. %    6 = grayscale value from 0 to 1 where 0 = black, 1 = white
  12. /gray exch def
  13. /start exch def
  14. /rotval exch def
  15. /mode exch def
  16. findfont /infont exch def
  17. /printme exch def
  18. /hframe exch def % left on stack by Maker
  19. /wframe exch def % ditto
  20. 0 0 moveto
  21. /scaler 12 def % avoid PS rounding problems
  22. infont scaler scalefont setfont
  23. /wfont wframe printme stringwidth
  24. pop div scaler mul def
  25. /hfont hframe (X) false charpath flattenpath
  26. pathbbox /temp exch def pop pop pop temp
  27. div scaler mul def
  28. mode /W eq {/hfont wfont def} if
  29. mode /H eq {/wfont hfont def} if
  30. infont [wfont 0 0 hfont 0 0] makefont setfont
  31. newpath 0 0 moveto
  32. start /LR eq {wframe 0 moveto} if
  33. start /UL eq {0 hframe moveto} if
  34. start /UR eq {wframe hframe moveto} if
  35. rotval rotate
  36. gray setgray
  37. printme show
  38.